home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / scm / wb1a1.lha / wb / make.scm < prev    next >
Encoding:
Text File  |  1993-06-29  |  2.0 KB  |  45 lines
  1. ; WB-tree File Based Associative String Data Base System.
  2. ; Copyright (c) 1991, 1992, 1993 Holland Mark Martin
  3. ;
  4. ;Permission to use, copy, modify, and distribute this software and its
  5. ;documentation for educational, research, and non-profit purposes and
  6. ;without fee is hereby granted, provided that the above copyright
  7. ;notice appear in all copies and that both that copyright notice and
  8. ;this permission notice appear in supporting documentation, and that
  9. ;the name of Holland Mark Martin not be used in advertising or
  10. ;publicity pertaining to distribution of the software without specific,
  11. ;written prior consent in each case.  Permission to incorporate this
  12. ;software into commercial products can be obtained from Jonathan
  13. ;Finger, Holland Mark Martin, 174 Middlesex Turnpike, Burlington, MA,
  14. ;01803-4467, USA.  Holland Mark Martin makes no representations about
  15. ;the suitability or correctness of this software for any purpose.  It
  16. ;is provided "as is" without express or implied warranty.  Holland Mark
  17. ;Martin is under no obligation to provide any services, by way of
  18. ;maintenance, update, or otherwise.
  19.  
  20. (require (in-vicinity (program-vicinity) "comp.scm"))
  21. (set! __STDC__ #t) ;; if you want ANSI function prototypes.
  22.  
  23. (define make
  24.   (let ((progvic (program-vicinity)))
  25.     (lambda ()
  26.       (if (eqv? (software-type) 'vms)
  27.       (compile (in-vicinity progvic "blkio.scm")))
  28.       (compile (in-vicinity progvic "stats.scm"))
  29.       (compile (in-vicinity progvic "blink.scm"))
  30.       (compile (in-vicinity progvic "ent.scm"))
  31.       (compile (in-vicinity progvic "del.scm"))
  32.       (compile (in-vicinity progvic "prev.scm"))
  33.       (compile (in-vicinity progvic "scan.scm"))
  34.       (compile (in-vicinity progvic "prev.scm"))
  35.       (compile (in-vicinity progvic "handle.scm"))
  36.       (compileh (in-vicinity progvic "defs.scm"))
  37.       (if (and (= 2 (length (program-arguments)))
  38.            (string-ci=? "make.scm" (cadr (program-arguments))))
  39.       (quit)                ;was invoked from Makefile
  40.       (if (eqv? (software-type) 'vms)
  41.           (system "@VMSBUILD")
  42.           (system "make"))))))
  43.  
  44. (make)
  45.